CAADate_DaysInMonth <-
function(Month, bLeap){
.Call("CAADate_DaysInMonth", Month, bLeap)
}
